﻿Imports BUS

Public Class UserControlXemDanhSachPhieuRut

    Private Sub UserControlXemDanhSachPhieuRut_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim prBUS As New PhieuRutTienBUS()
        Dim dt As New DataTable()
        dt = prBUS.LayThongTinDanhSachPhieuRutTien()
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim lv As ListViewItem = lvwDanhSach.Items.Add((i + 1).ToString())
            lv.SubItems.Add(dt.Rows(i)("MaPhieuRut"))
            lv.SubItems.Add(dt.Rows(i)("MaSo"))
            lv.SubItems.Add(dt.Rows(i)("TenKhachHang"))
            lv.SubItems.Add(dt.Rows(i)("NgayRut"))
            lv.SubItems.Add(dt.Rows(i)("SoTienRut"))
        Next
    End Sub
End Class
